home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aae.d64
/
moon river
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
4KB
|
76 lines
100 REMROBERT LEE WOODYARD
110 REM1230 STEMWOODY DRIVE
120 REMPICAYUNE, MISSISSIPPI 39466
130 REM(601) 798-5724
140 REMRLW 5/19/84
150 S=54272:CC=53272:GOSUB 440:RS$=CHR$(PEEK(CC)):GOSUB 540:GOSUB 460
160 DIM HF(95),LF(95),X(2,6),T(2),TL(2)
170 REMSET UP FREQUENCES *****
180 FOR R=0 TO 11:D=2:READ L:FOR V=7 TO 0 STEP -1:D=.5*D:I=INT(L*D+.5)
190 N=12*V+R:HF(N)=INT(I/256):LF(N)=I-256*HF(N):NEXT V,R:PRINT"[147]";:POKECC,21
200 DATA 34334,36376,38539,40380,43258,45830,48556,51443,54502,57743,61176,64814
210 REMSETUP SOUND CHIP
220 FOR V=0 TO 2:FOR R=0 TO 6:READ X(V,R):NEXT R,V:GOSUB 420:POKE S+24,15
230 DATA 0,0,0,8,0,88,159,0,0,0,8,0,88,159,0,0,0,8,0,88,159
240 REMPLAY SONG
250 READ M,I:TS=TI:X(0,4)=33:X(1,4)=33:X(2,4)=33
260 ON I GOTO 270,280,290,300
270 READ D,T(0),A$,I:VE=0:T(1)=-1:T(2)=-1:GOSUB 320:GOSUB 380:GOTO 260
280 READ D,T(0),T(1),A$,I:VE=1:T(2)=-1:GOSUB 320:GOSUB 380:GOTO 260
290 READ D,T(0),T(1),T(2),A$,I:VE=2:GOSUB 320:GOSUB 380:GOTO 260
300 GOSUB 340:GOSUB 440:POKE CC,ASC(RS$):END
310 REMPRINT WORDS AND SET UP NOTES **
320 PRINTA$" ";:FOR V=0 TO VE:IF T(V)>=0THEN L=T(V):X(V,1)=HF(L):X(V,0)=LF(L)
330 NEXT V
340 IF TI<TS THEN 340
350 FOR V=0 TO LV:IF T(V)<>TL(V) THEN POKE S+7*V+4,X(V,4)AND 0
360 NEXT V:RETURN
370 REMTURN ON NEW NOTE
380 FOR V=0 TO 2:IF T(V)=TL(V) OR T(V)=-1 THEN 400
390 L=S+7*V:POKE L,X(V,0):POKE L+1,X(V,1):POKE L+4,X(V,4)
400 TL(V)=T(V):NEXT V:TS=TI+D*M-5:LV=VE:RETURN
410 REMSET VALUES IN SOUND CHIP *****
420 FOR V=0 TO 2:FOR R=0 TO 6:POKE S+7*V+R,X(V,R):NEXT R,V:RETURN
430 REMZERO SOUND CHIP
440 FOR L=S TO S+24:POKE L,0:NEXT L:RETURN
450 REMPRINT SONG FOR SETUP *****
460 FOR V=0 TO 34:READ I:NEXT V:FOR V=0 TO 1000:NEXT V:PRINT"[147]":POKE CC,21
470 ON I GOTO 480,490,500,510
480 READ I,I,A$,I:GOTO 520
490 READ I,I,I,A$,I:GOTO 520
500 READ I,I,I,I,A$,I:GOTO 520
510 RESTORE:RETURN
520 PRINTA$" ";:GOTO 470
530 REMPRINT TITLE *****
540 POKE CC,23:PRINT"[147]"TAB(15)"[205][207][207][206][160][210][201][214][197][210]":PRINT""TAB(19)"BY"
550 PRINT""TAB(14)"[202]OHNNY [205]ERCER":PRINT""TAB(18)"AND"
560 PRINT""TAB(14)"[200]ENRY [205]ANCINI":RETURN
570 DATA 18, 2,2,55,36,"MOON",2,2,55,43,,2,2,55,48,,3,2,62,52,45,"RIV -",3,4
580 DATA 60,52,45,"ER,",2,2,59,41,"WID",2,1,59,45,"-",2,1,57,45,"ER",2,1,55,35
590 DATA "THAN",2,1,53,35,"A",2,2,55,40,"MILE;",2,2,55,43,,1,2,48,"I'M",2,2
600 DATA 59,41,"CROSS",2,1,59,45,"-",2,1,57,45,"IN'",2,1,55,48,"YOU",2,1,53,48
610 DATA "IN",2,2,55,40,"STYLE",2,2,55,43,,1,2,48,"SOME",2,2,50,35,"DAY.",2,2
620 DATA 50,41,,2,2,50,45,,3,2,50,44,40,,3,2,50,45,40,,2,2,52,47,"[157][157][157][157]OLD",1
630 DATA 2,48,"DREAM",2,2,48,40,,2,2,48,47,,3,2,55,46,36,"MAK -",3,3,52,46,36
640 DATA "ER,",3,1,50,46,36,"YOU",1,2,48,"HEART",2,2,48,36,,2,2,48,45
650 DATA " ",3,2,55,44,34,"BREAK",3,3,52,44,34,"- ER.",3,1,50,44,34
660 DATA "WHER -",2,2,48,45,"EV -",2,2,52,45,"ER",2,2,55,43,"YOU'ER",3,2,60,52
670 DATA 45,"GO",3,3,59,50,45,"- IN',",3,1,57,45,35,"I'M",3,2,59,50,43
680 DATA "GO -",3,3,57,49,41,"IN'",3,1,55,49,41,"YOUR",3,2,57,48,41
690 DATA "WAY. ",3,4,57,47,41,,2,2,55,40,"TWO",2,2,55,43,,2,2,55,48,,3,2
700 DATA 62,52,45,"DRIFT",3,4,60,52,45,"- ERS",2,2,59,41,"OFF",2,1,59,45,,2,1
710 DATA 57,45,"TO",2,1,55,35,"SEE",2,1,53,35,"THE",2,2,55,40,"WORLD",2,2,55
720 DATA 43,,1,2,48,"[157]THERE'S",2,2,59,41,"SUCH",2,1,59,45,,2,1,57,45,"A",2,1
730 DATA 55,48,"LOT",2,1,53,48,"OF",2,2,55,40,"WORLD",2,2,55,43,,1,2,48,"TO",2
740 DATA 2,50,35,"SEE",2,2,50,41,,2,2,50,45,,3,2,50,44,40,,3,2,50,45,40,,2,2
750 DATA 52,47,,1,2,48,"[157][157]WE'RE",2,2,48,47,"AF",2,2,48,46,"-",2,2,52,45,,2,2
760 DATA 52,44,"TER",2,2,55,43,"THE",3,6,60,52,42,"SAME",3,4,62,51,41,"RAIN",3
770 DATA 2,60,51,41,"- BOW'S ",2,2,55,40,"END",2,2,55,43,,2,2,55,48,,2,2,55
780 DATA 41,,2,1,59,45,"WAIT -",2,1,57,45,"IN'",2,1,55,48,"ROUND",2,1,53,48
790 DATA "THE",2,2,55,40,"BEND",2,2,55,43,,2,2,55,48,,2,1,55,41,,2,1,48,41
800 DATA " MY",2,1,59,45,"HUCK -",2,1,57,45,"LE -",2,1,55,48,"BER -",2,1
810 DATA 53,48,"RY",2,2,55,40,"FRIEND",2,2,55,43,,2,2,55,47,,2,2,48,45
820 DATA " MOON",2,2,48,44,,2,2,48,43,,2,2,53,38,"RIV -",2,2,50,38,"ER"
830 DATA 2,2,50,45,,3,4,50,47,41,,3,2,52,47,43,"AND",2,2,48,36,"ME",3,2,48,47
840 DATA 43,,3,2,48,45,41,,3,6,52,43,36,,4